perm filename SCALE.SCR[SCR,MUS] blob
sn#434117 filedate 1979-04-18 generic text, type T, neo UTF8
FUNC FUN; < F1, F2, F3, F4, F5, F6
COMMON TOOT TOOT CLAR BRIT BUZZ;
COMMON REVRB;
< SCALE.SCR -- RANDOM NUMBER= 1
PLAY;
REVRB 0.000 10.000
;PRINT P1;< REVRB 1
CLAR 0.000 0.100 AS*2 0.700 F2 0.000 0.000 0.000 0.000 0.000
0.000 0.100 F4 0.000 0.000 0.000 0.000 0.000 0.000 0.000
0.000 0.000 A*2 C*4 GS*2 GS*2 E*2 B DS CS/2
;PRINT P1;< CLAR 2
CLAR 0.100 0.100 C*4 0.700 F2 0.000 0.000 0.000 0.000 0.000
0.000 0.100 F4 0.000 0.000 0.000 0.000 0.000 0.000 0.000
0.000 0.000 E FS AS*2 E D G*2 A/2 E/2
;PRINT P1;< CLAR 3
CLAR 0.200 0.100 AS*2 0.700 F2 0.000 0.000 0.000 0.000 0.000
0.000 0.100 F4 0.000 0.000 0.000 0.000 0.000 0.000 0.000
0.000 0.000 CS F G*2 C G/2 GS DS*2 AS/2
;PRINT P1;< CLAR 4
CLAR 0.300 0.100 C 0.700 F2 0.000 0.000 0.000 0.000 0.000
0.000 0.100 F4 0.000 0.000 0.000 0.000 0.000 0.000 0.000
0.000 0.000 C/2 AS/2 B/2 A GS*2 FS D G*2
;PRINT P1;< CLAR 5
CLAR 0.400 0.100 GS*2 0.700 F2 0.000 0.000 0.000 0.000 0.000
0.000 0.100 F4 0.000 0.000 0.000 0.000 0.000 0.000 0.000
0.000 0.000 A/2 F/2 DS G AS*2 FS E A*2
;PRINT P1;< CLAR 6
CLAR 0.500 0.100 FS 0.700 F2 0.000 0.000 0.000 0.000 0.000
0.000 0.100 F4 0.000 0.000 0.000 0.000 0.000 0.000 0.000
0.000 0.000 CS B/2 CS*2 D/2 CS*2 D*2 E G/2
;PRINT P1;< CLAR 7
CLAR 0.600 0.100 E 0.700 F2 0.000 0.000 0.000 0.000 0.000
0.000 0.100 F4 0.000 0.000 0.000 0.000 0.000 0.000 0.000
0.000 0.000 GS CS*2 AS/2 AS*2 B/2 B/2 GS FS*2
;PRINT P1;< CLAR 8
CLAR 0.700 0.100 FS*2 0.700 F2 0.000 0.000 0.000 0.000 0.000
0.000 0.100 F4 0.000 0.000 0.000 0.000 0.000 0.000 0.000
0.000 0.000 D A/2 AS FS*2 G DS GS*2 CS
;PRINT P1;< CLAR 9
CLAR 0.800 0.100 D 0.700 F2 0.000 0.000 0.000 0.000 0.000
0.000 0.100 F4 0.000 0.000 0.000 0.000 0.000 0.000 0.000
0.000 0.000 GS/2 G DS*2 C E/2 DS F FS*2
;PRINT P1;< CLAR 10
CLAR 0.900 0.100 G 0.700 F2 0.000 0.000 0.000 0.000 0.000
0.000 0.100 F4 0.000 0.000 0.000 0.000 0.000 0.000 0.000
0.000 0.000 B/2 G/2 FS B G/2 F*2 DS/2
;PRINT P1;< CLAR 11
CLAR 1.000 0.100 FS 0.700 F2 0.000 0.000 0.000 0.000 0.000
0.000 0.100 F4 0.000 0.000 0.000 0.000 0.000 0.000 0.000
0.000 0.000 E*2 B G A/2 D*2 A*2 D*2 CS*2
;PRINT P1;< CLAR 12
CLAR 1.100 0.100 A/2 0.700 F2 0.000 0.000 0.000 0.000 0.000
0.000 0.100 F4 0.000 0.000 0.000 0.000 0.000 0.000 0.000
0.000 0.000 DS FS/2 GS C*2 C E/2 CS D
;PRINT P1;< CLAR 13
CLAR 1.200 0.100 C 0.700 F2 0.000 0.000 0.000 0.000 0.000
0.000 0.100 F4 0.000 0.000 0.000 0.000 0.000 0.000 0.000
0.000 0.000 A G*2 AS A AS/2 E*2 F/2 G*2
;PRINT P1;< CLAR 14
CLAR 1.300 0.100 E*2 0.700 F2 0.000 0.000 0.000 0.000 0.000
0.000 0.100 F4 0.000 0.000 0.000 0.000 0.000 0.000 0.000
0.000 0.000 G*2 DS*2 D*2 A E F/2 FS GS
;PRINT P1;< CLAR 15
CLAR 1.400 0.100 FS 0.700 F2 0.000 0.000 0.000 0.000 0.000
0.000 0.100 F4 0.000 0.000 0.000 0.000 0.000 0.000 0.000
0.000 0.000 G*2 E E F*2 D C AS F*2
;PRINT P1;< CLAR 16
CLAR 1.500 0.100 F*2 0.700 F2 0.000 0.000 0.000 0.000 0.000
0.000 0.100 F4 0.000 0.000 0.000 0.000 0.000 0.000 0.000
0.000 0.000 E C D*2 G/2 F*2 GS*2 F*2 E*2
;PRINT P1;< CLAR 17
CLAR 1.600 0.100 E 0.700 F2 0.000 0.000 0.000 0.000 0.000
0.000 0.100 F4 0.000 0.000 0.000 0.000 0.000 0.000 0.000
0.000 0.000 GS DS F/2 FS GS G/2 AS C*2
;PRINT P1;< CLAR 18
CLAR 1.700 0.100 DS 0.700 F2 0.000 0.000 0.000 0.000 0.000
0.000 0.100 F4 0.000 0.000 0.000 0.000 0.000 0.000 0.000
0.000 0.000 AS/2 F*2 AS/2 AS/2 DS A A*2 A
;PRINT P1;< CLAR 19
CLAR 1.800 0.100 AS/2 0.700 F2 0.000 0.000 0.000 0.000 0.000
0.000 0.100 F4 0.000 0.000 0.000 0.000 0.000 0.000 0.000
0.000 0.000 F FS/2 A AS CS FS/2 D E
;PRINT P1;< CLAR 20
CLAR 1.900 0.100 AS 0.700 F2 0.000 0.000 0.000 0.000 0.000
0.000 0.100 F4 0.000 0.000 0.000 0.000 0.000 0.000 0.000
0.000 0.000 GS F*2 GS G A/2 CS*2 FS*2 AS
;PRINT P1;< CLAR 21
CLAR 2.000 0.100 A/2 0.700 F2 0.000 0.000 0.000 0.000 0.000
0.000 0.100 F4 0.000 0.000 0.000 0.000 0.000 0.000 0.000
0.000 0.000 E FS/2 FS GS A/2 CS*2 FS*2 C*2
;PRINT P1;< CLAR 22
CLAR 2.100 0.100 CS*2 0.700 F2 0.000 0.000 0.000 0.000 0.000
0.000 0.100 F4 0.000 0.000 0.000 0.000 0.000 0.000 0.000
0.000 0.000 F A/2 C*2 DS*2 B A CS E*2
;PRINT P1;< CLAR 23
CLAR 2.200 0.100 CS 0.700 F2 0.000 0.000 0.000 0.000 0.000
0.000 0.100 F4 0.000 0.000 0.000 0.000 0.000 0.000 0.000
0.000 0.000 F/2 D*2 FS*2 D*2 F*2 D*2 CS*2 A
;PRINT P1;< CLAR 24
CLAR 2.300 0.100 A 0.700 F2 0.000 0.000 0.000 0.000 0.000
0.000 0.100 F4 0.000 0.000 0.000 0.000 0.000 0.000 0.000
0.000 0.000 A/2 A E*2 GS GS C DS*2 G*2
;PRINT P1;< CLAR 25
CLAR 2.400 0.100 A/2 0.700 F2 0.000 0.000 0.000 0.000 0.000
0.000 0.100 F4 0.000 0.000 0.000 0.000 0.000 0.000 0.000
0.000 0.000 AS AS F CS CS*2 GS/2 D*2 D*2
;PRINT P1;< CLAR 26
CLAR 2.500 0.100 AS 0.700 F2 0.000 0.000 0.000 0.000 0.000
0.000 0.100 F4 0.000 0.000 0.000 0.000 0.000 0.000 0.000
0.000 0.000 E C CS*2 AS/2 E*2 FS*2 F*2 DS*2
;PRINT P1;< CLAR 27
CLAR 2.600 0.100 CS*2 0.700 F2 0.000 0.000 0.000 0.000 0.000
0.000 0.100 F4 0.000 0.000 0.000 0.000 0.000 0.000 0.000
0.000 0.000 A F B/2 B GS/2 DS*2 FS*2 D*2
;PRINT P1;< CLAR 28
CLAR 2.700 0.100 B 0.700 F2 0.000 0.000 0.000 0.000 0.000
0.000 0.100 F4 0.000 0.000 0.000 0.000 0.000 0.000 0.000
0.000 0.000 A E B/2 A E*2 AS A E
;PRINT P1;< CLAR 29
CLAR 2.800 0.100 E*2 0.700 F2 0.000 0.000 0.000 0.000 0.000
0.000 0.100 F4 0.000 0.000 0.000 0.000 0.000 0.000 0.000
0.000 0.000 A C*2 GS FS B/2 C*2 F*2 B
;PRINT P1;< CLAR 30
CLAR 2.900 0.100 C*2 0.700 F2 0.000 0.000 0.000 0.000 0.000
0.000 0.100 F4 0.000 0.000 0.000 0.000 0.000 0.000 0.000
0.000 0.000 DS G/2 F FS A/2 AS C*2 FS
;PRINT P1;< CLAR 31
CLAR 3.000 0.100 C*2 0.700 F2 0.000 0.000 0.000 0.000 0.000
0.000 0.100 F4 0.000 0.000 0.000 0.000 0.000 0.000 0.000
0.000 0.000 CS*2 AS/2 A/2 DS F CS*2 D F*2
;PRINT P1;< CLAR 32
CLAR 3.100 0.100 F*2 0.700 F2 0.000 0.000 0.000 0.000 0.000
0.000 0.100 F4 0.000 0.000 0.000 0.000 0.000 0.000 0.000
0.000 0.000 A/2 AS/2 D FS D*2 FS E C*2
;PRINT P1;< CLAR 33
CLAR 3.200 0.100 A/2 0.700 F2 0.000 0.000 0.000 0.000 0.000
0.000 0.100 F4 0.000 0.000 0.000 0.000 0.000 0.000 0.000
0.000 0.000 CS*2 G GS D D*2 D B/2 FS
;PRINT P1;< CLAR 34
CLAR 3.300 0.100 G 0.700 F2 0.000 0.000 0.000 0.000 0.000
0.000 0.100 F4 0.000 0.000 0.000 0.000 0.000 0.000 0.000
0.000 0.000 AS/2 DS AS D E*2 D CS G
;PRINT P1;< CLAR 35
CLAR 3.400 0.100 AS 0.700 F2 0.000 0.000 0.000 0.000 0.000
0.000 0.100 F4 0.000 0.000 0.000 0.000 0.000 0.000 0.000
0.000 0.000 D GS B/2 AS AS/2 E*2 C F
;PRINT P1;< CLAR 36
CLAR 3.500 0.100 AS 0.700 F2 0.000 0.000 0.000 0.000 0.000
0.000 0.100 F4 0.000 0.000 0.000 0.000 0.000 0.000 0.000
0.000 0.000 GS/2 B/2 DS G A/2 AS B GS
;PRINT P1;< CLAR 37
CLAR 3.600 0.100 A/2 0.700 F2 0.000 0.000 0.000 0.000 0.000
0.000 0.100 F4 0.000 0.000 0.000 0.000 0.000 0.000 0.000
0.000 0.000 B B/2 AS/2 DS F C*2 DS DS*2
;PRINT P1;< CLAR 38
CLAR 3.700 0.100 C*2 0.700 F2 0.000 0.000 0.000 0.000 0.000
0.000 0.100 F4 0.000 0.000 0.000 0.000 0.000 0.000 0.000
0.000 0.000 GS/2 GS/2 AS/2 D D G C*2 FS
;PRINT P1;< CLAR 39
CLAR 3.800 0.100 C*2 0.700 F2 0.000 0.000 0.000 0.000 0.000
0.000 0.100 F4 0.000 0.000 0.000 0.000 0.000 0.000 0.000
0.000 0.000 G GS G F B/2 A B GS
;PRINT P1;< CLAR 40
CLAR 3.900 0.100 GS 0.700 F2 0.000 0.000 0.000 0.000 0.000
0.000 0.100 F4 0.000 0.000 0.000 0.000 0.000 0.000 0.000
0.000 0.000 A AS/2 CS*2 D B/2 DS F AS
;PRINT P1;< CLAR 41
CLAR 4.000 0.100 A 0.700 F2 0.000 0.000 0.000 0.000 0.000
0.000 0.100 F4 0.000 0.000 0.000 0.000 0.000 0.000 0.000
0.000 0.000 F AS/2 A GS GS G F*2
;PRINT P1;< CLAR 42
CLAR 4.100 0.100 AS/2 0.700 F2 0.000 0.000 0.000 0.000 0.000
0.000 0.100 F4 0.000 0.000 0.000 0.000 0.000 0.000 0.000
0.000 0.000 CS G B/2 GS B/2 D*2 CS D*2
;PRINT P1;< CLAR 43
CLAR 4.200 0.100 B/2 0.700 F2 0.000 0.000 0.000 0.000 0.000
0.000 0.100 F4 0.000 0.000 0.000 0.000 0.000 0.000 0.000
0.000 0.000 AS A B GS B AS A A
;PRINT P1;< CLAR 44
CLAR 4.300 0.100 GS 0.700 F2 0.000 0.000 0.000 0.000 0.000
0.000 0.100 F4 0.000 0.000 0.000 0.000 0.000 0.000 0.000
0.000 0.000 F G FS F B/2 GS GS D*2
;PRINT P1;< CLAR 45
CLAR 4.400 0.100 B/2 0.700 F2 0.000 0.000 0.000 0.000 0.000
0.000 0.100 F4 0.000 0.000 0.000 0.000 0.000 0.000 0.000
0.000 0.000 C C FS G F F B CS*2
;PRINT P1;< CLAR 46
CLAR 4.500 0.100 F 0.700 F2 0.000 0.000 0.000 0.000 0.000
0.000 0.100 F4 0.000 0.000 0.000 0.000 0.000 0.000 0.000
0.000 0.000 CS C G G G G DS*2 B
;PRINT P1;< CLAR 47
CLAR 4.600 0.100 DS*2 0.700 F2 0.000 0.000 0.000 0.000 0.000
0.000 0.100 F4 0.000 0.000 0.000 0.000 0.000 0.000 0.000
0.000 0.000 C F B FS A G DS
;PRINT P1;< CLAR 48
CLAR 4.700 0.100 B 0.700 F2 0.000 0.000 0.000 0.000 0.000
0.000 0.100 F4 0.000 0.000 0.000 0.000 0.000 0.000 0.000
0.000 0.000 C F B/2 FS AS GS G CS*2
;PRINT P1;< CLAR 49
CLAR 4.800 0.100 C 0.700 F2 0.000 0.000 0.000 0.000 0.000
0.000 0.100 F4 0.000 0.000 0.000 0.000 0.000 0.000 0.000
0.000 0.000 A/2 FS B/2 FS CS*2 C*2 DS*2
;PRINT P1;< CLAR 50
CLAR 4.900 0.100 FS 0.700 F2 0.000 0.000 0.000 0.000 0.000
0.000 0.100 F4 0.000 0.000 0.000 0.000 0.000 0.000 0.000
0.000 0.000 F E E E G A F C*2
;PRINT P1;< CLAR 51
CLAR 5.000 0.100 E 0.700 F2 0.000 0.000 0.000 0.000 0.000
0.000 0.100 F4 0.000 0.000 0.000 0.000 0.000 0.000 0.000
0.000 0.000 F DS D F D B DS*2
;PRINT P1;< CLAR 52
CLAR 5.100 0.100 F 0.700 F2 0.000 0.000 0.000 0.000 0.000
0.000 0.100 F4 0.000 0.000 0.000 0.000 0.000 0.000 0.000
0.000 0.000 F DS DS F F G B
;PRINT P1;< CLAR 53
CLAR 5.200 0.100 F 0.700 F2 0.000 0.000 0.000 0.000 0.000
0.000 0.100 F4 0.000 0.000 0.000 0.000 0.000 0.000 0.000
0.000 0.000 D DS CS F A GS FS
;PRINT P1;< CLAR 54
CLAR 5.300 0.100 GS 0.700 F2 0.000 0.000 0.000 0.000 0.000
0.000 0.100 F4 0.000 0.000 0.000 0.000 0.000 0.000 0.000
0.000 0.000 E D CS F A GS F
;PRINT P1;< CLAR 55
CLAR 5.400 0.100 F 0.700 F2 0.000 0.000 0.000 0.000 0.000
0.000 0.100 F4 0.000 0.000 0.000 0.000 0.000 0.000 0.000
0.000 0.000 B/2 DS GS F F AS FS
;PRINT P1;< CLAR 56
CLAR 5.500 0.100 C*2 0.700 F2 0.000 0.000 0.000 0.000 0.000
0.000 0.100 F4 0.000 0.000 0.000 0.000 0.000 0.000 0.000
0.000 0.000 E DS E F G A G
;PRINT P1;< CLAR 57
CLAR 5.600 0.100 E 0.700 F2 0.000 0.000 0.000 0.000 0.000
0.000 0.100 F4 0.000 0.000 0.000 0.000 0.000 0.000 0.000
0.000 0.000 E DS E F FS A D*2
;PRINT P1;< CLAR 58
CLAR 5.700 0.100 DS 0.700 F2 0.000 0.000 0.000 0.000 0.000
0.000 0.100 F4 0.000 0.000 0.000 0.000 0.000 0.000 0.000
0.000 0.000 C DS CS F AS AS C*2
;PRINT P1;< CLAR 59
CLAR 5.800 0.100 CS 0.700 F2 0.000 0.000 0.000 0.000 0.000
0.000 0.100 F4 0.000 0.000 0.000 0.000 0.000 0.000 0.000
0.000 0.000 C CS E F AS A AS
;PRINT P1;< CLAR 60
CLAR 5.900 0.100 F 0.700 F2 0.000 0.000 0.000 0.000 0.000
0.000 0.100 F4 0.000 0.000 0.000 0.000 0.000 0.000 0.000
0.000 0.000 C D E F F AS G
;PRINT P1;< CLAR 61
CLAR 6.000 0.100 F 0.700 F2 0.000 0.000 0.000 0.000 0.000
0.000 0.100 F4 0.000 0.000 0.000 0.000 0.000 0.000 0.000
0.000 0.000 AS/2 D CS F E A GS
;PRINT P1;< CLAR 62
CLAR 6.100 0.100 A 0.700 F2 0.000 0.000 0.000 0.000 0.000
0.000 0.100 F4 0.000 0.000 0.000 0.000 0.000 0.000 0.000
0.000 0.000 C D D F GS A CS*2
;PRINT P1;< CLAR 63
CLAR 6.200 0.100 CS*2 0.700 F2 0.000 0.000 0.000 0.000 0.000
0.000 0.100 F4 0.000 0.000 0.000 0.000 0.000 0.000 0.000
0.000 0.000 B/2 D F F A A A
;PRINT P1;< CLAR 64
CLAR 6.300 0.100 C*2 0.700 F2 0.000 0.000 0.000 0.000 0.000
0.000 0.100 F4 0.000 0.000 0.000 0.000 0.000 0.000 0.000
0.000 0.000 CS D E F A A AS
;PRINT P1;< CLAR 65
CLAR 6.400 0.100 CS 0.700 F2 0.000 0.000 0.000 0.000 0.000
0.000 0.100 F4 0.000 0.000 0.000 0.000 0.000 0.000 0.000
0.000 0.000 D D E F GS A B
;PRINT P1;< CLAR 66
CLAR 6.500 0.100 D 0.700 F2 0.000 0.000 0.000 0.000 0.000
0.000 0.100 F4 0.000 0.000 0.000 0.000 0.000 0.000 0.000
0.000 0.000 B/2 D E F G A A
;PRINT P1;< CLAR 67
CLAR 6.600 0.100 E 0.700 F2 0.000 0.000 0.000 0.000 0.000
0.000 0.100 F4 0.000 0.000 0.000 0.000 0.000 0.000 0.000
0.000 0.000 CS D DS F GS A B
;PRINT P1;< CLAR 68
CLAR 6.700 0.100 F 0.700 F2 0.000 0.000 0.000 0.000 0.000
0.000 0.100 F4 0.000 0.000 0.000 0.000 0.000 0.000 0.000
0.000 0.000 C D F F FS
;PRINT P1;< CLAR 69
CLAR 6.800 0.100 FS 0.700 F2 0.000 0.000 0.000 0.000 0.000
0.000 0.100 F4 0.000 0.000 0.000 0.000 0.000 0.000 0.000
0.000 0.000 CS D E F G A AS
;PRINT P1;< CLAR 70
CLAR 6.900 0.100 A 0.700 F2 0.000 0.000 0.000 0.000 0.000
0.000 0.100 F4 0.000 0.000 0.000 0.000 0.000 0.000 0.000
0.000 0.000 CS D E F G A C*2
;PRINT P1;< CLAR 71
CLAR 7.000 0.100 C*2 0.700 F2 0.000 0.000 0.000 0.000 0.000
0.000 0.100 F4 0.000 0.000 0.000 0.000 0.000 0.000 0.000
0.000 0.000 C D E F G A B
;PRINT P1;< CLAR 72
CLAR 7.100 0.100
;PRINT P1;< CLAR 73
CLAR 7.200 0.100 C
;PRINT P1;< CLAR 74
CLAR 7.300 0.100 D
;PRINT P1;< CLAR 75
CLAR 7.400 0.100 E
;PRINT P1;< CLAR 76
CLAR 7.500 0.100 F
;PRINT P1;< CLAR 77
CLAR 7.600 0.100 G
;PRINT P1;< CLAR 78
CLAR 7.700 0.100 A
;PRINT P1;< CLAR 79
CLAR 7.800 0.100 B
;PRINT P1;< CLAR 80
CLAR 7.900 0.100 C*2
;PRINT P1;< CLAR 81
CLAR 8.000 0.100 C
;PRINT P1;< CLAR 82
CLAR 8.100 0.100 D
;PRINT P1;< CLAR 83
CLAR 8.200 0.100 E
;PRINT P1;< CLAR 84
CLAR 8.300 0.100 F
;PRINT P1;< CLAR 85
CLAR 8.400 0.100 G
;PRINT P1;< CLAR 86
CLAR 8.500 0.100 A
;PRINT P1;< CLAR 87
CLAR 8.600 0.100 B
;PRINT P1;< CLAR 88
CLAR 8.700 0.100 C*2
;PRINT P1;< CLAR 89
FINISH; < SCALE.SCR